home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / plot.dxr / 00008.ls < prev    next >
Encoding:
Text File  |  2000-08-01  |  359 b   |  14 lines
  1. on plot
  2.   set x0 to the locH of sprite 15
  3.   set y0 to the locV of sprite 15
  4.   set X to x0
  5.   set Y to y0
  6.   set the trails of sprite 15 to 1
  7.   repeat with n = 0 to 240
  8.     set Y to (-50 * float(sin(3.0 * n * PI / 180.0))) + y0
  9.     set the locV of sprite 15 to Y
  10.     set the locH of sprite 15 to (n * 2.39999999999999991) + x0
  11.     updateStage()
  12.   end repeat
  13. end
  14.